home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / eaitset.lsp < prev    next >
Text File  |  1998-03-15  |  6KB  |  97 lines
  1. ;SETUP
  2. (defun EAITset ( / ) 
  3.  
  4. ;ACAD-Befehle -> Sprache
  5. (load (strcat EAITpfn "EAIT_bef"))
  6.  
  7. ;alte Zeichnungen konvertieren
  8. (if (tblsearch "BLOCK" "AIT$INFO")
  9.     (progn
  10.        ;Layer
  11.     (if (and (not (tblsearch "layer" "EAIT25"))    (tblsearch "layer" "AIT$25"))    (command EAITumb EAITumla "AIT$25" "EAIT25"))
  12.     (if (and (not (tblsearch "layer" "EAIT35"))    (tblsearch "layer" "AIT$35"))    (command EAITumb EAITumla "AIT$35" "EAIT35"))
  13.     (if (and (not (tblsearch "layer" "EAIT50"))    (tblsearch "layer" "AIT$50"))    (command EAITumb EAITumla "AIT$50" "EAIT50"))
  14.     (if (and (not (tblsearch "layer" "EAITgstr"))  (tblsearch "layer" "AIT$gstr"))  (command EAITumb EAITumla "AIT$gstr" "EAITgstr"))
  15.     (if (and (not (tblsearch "layer" "EAITgstrg")) (tblsearch "layer" "AIT$gstrg")) (command EAITumb EAITumla "AIT$gstrg" "EAITgstrg"))
  16.     (if (and (not (tblsearch "layer" "EAIThilfe")) (tblsearch "layer" "AIT$hilfe")) (command EAITumb EAITumla "AIT$hilfe" "EAIThilfe"))
  17.     (if (and (not (tblsearch "layer" "EAITinfo"))  (tblsearch "layer" "AIT$info"))  (command EAITumb EAITumla "AIT$info" "EAITinfo"))
  18.     (if (and (not (tblsearch "layer" "EAITstp"))   (tblsearch "layer" "AIT$stp"))   (command EAITumb EAITumla "AIT$stp" "EAITstp"))
  19.     (if (and (not (tblsearch "layer" "EAITstpg"))  (tblsearch "layer" "AIT$stpg"))  (command EAITumb EAITumla "AIT$stpg" "EAITstpg"))
  20.     (if (and (not (tblsearch "layer" "EAIT3D"))    (tblsearch "layer" "AIT$3D"))    (command EAITumb EAITumla "AIT$3D" "EAIT3D"))
  21.     (if (and (not (tblsearch "layer" "EAIT3D_BEM"))(tblsearch "layer" "AIT$3D_BEM"))(command EAITumb EAITumla "AIT$3D_BEM" "EAIT3D_BEM"))
  22.     (if (and (not (tblsearch "layer" "EAIT3D_DET"))(tblsearch "layer" "AIT$3D_DET"))(command EAITumb EAITumla "AIT$3D_DET" "EAIT3D_DET"))
  23.     (if (and (not (tblsearch "layer" "EAIT3D_HLF"))(tblsearch "layer" "AIT$3D_HLF"))(command EAITumb EAITumla "AIT$3D_HLF" "EAIT3D_HLF"))
  24.  
  25.     ;Linienarten
  26.     (if (and (not(tblsearch "ltype" "EAITstrich"))     (tblsearch "ltype""AIT$strich"))     (command EAITumb EAITumlt "AIT$strich" "EAITstrich"))
  27.     (if (and (not(tblsearch "ltype" "EAITstrichgr"))   (tblsearch "ltype""AIT$strichgr"))   (command EAITumb EAITumlt "AIT$strichgr" "EAITstrichgr"))
  28.     (if (and (not(tblsearch "ltype" "EAITstrichpunkt"))(tblsearch "ltype""AIT$strichpunkt"))(command EAITumb EAITumlt "AIT$strichpunkt" "EAITstrichpunkt"))
  29.     (if (and (not(tblsearch "ltype" "EAITstrichpgr"))  (tblsearch "ltype""AIT$strichpgr"))  (command EAITumb EAITumlt "AIT$strichpgr" "EAITstrichpgr"))
  30.  
  31.      );progn
  32. );if
  33.  
  34.  
  35. ;Linienarten
  36. (if (not (tblsearch "ltype" "EAITstrich"))      (command EAITltp EAITlla "EAITstrich"      (strcat EAITpfm "EAitem") ""))
  37. (if (not (tblsearch "ltype" "EAITstrichgr"))    (command EAITltp EAITlla "EAITstrichgr"    (strcat EAITpfm "EAitem") ""))
  38. (if (not (tblsearch "ltype" "EAITstrichpunkt")) (command EAITltp EAITlla "EAITstrichpunkt" (strcat EAITpfm "EAitem") ""))
  39. (if (not (tblsearch "ltype" "EAITstrichpgr"))   (command EAITltp EAITlla "EAITstrichpgr"   (strcat EAITpfm "EAitem") ""))
  40.  
  41.  
  42. ;Std-Farben
  43. (setq AIT-fstd '(7 2 3 3 4 4 4 6 6 7 3 2 2 2 2 2 2 3 3 2)
  44.       AIT-da (open (strcat EAITpfm "color.dat") "r")
  45. )
  46.  
  47. ;Benutzer-Einstellung einlesen
  48. (if AIT-da
  49.   (progn
  50.     (setq AIT-n 0 AIT-ze (read-line AIT-da) ait-fneu nil)
  51.     (while (and (< AIT-n 22)(/= AIT-ze nil))
  52.       (setq AIT-far (atoi (substr AIT-ze 1 3)))
  53.       (if (or (= AIT-far nil)(<= AIT-far 0)(> AIT-far 256)) (setq AIT-far (nth AIT-n AIT-fstd)) )
  54.       (setq AIT-fneu (cons AIT-far AIT-fneu))
  55.       (setq AIT-n (1+ AIT-n) AIT-ze (read-line AIT-da) )
  56.     )
  57.     (setq AIT-fneu (reverse AIT-fneu))
  58.     (close AIT-da)
  59.   )
  60.   (setq AIT-fneu AIT-fstd)
  61. )
  62.  
  63. ;Layer
  64. (setq EAITal (getvar "CLAYER"))
  65. (if (not (tblsearch "layer" "EAIT50"))    (command EAITlay EAITlma "EAIT50"     EAITlfa (nth 0  AIT-fneu) "" ""))
  66. (if (not (tblsearch "layer" "EAIT35"))    (command EAITlay EAITlma "EAIT35"     EAITlfa (nth 1  AIT-fneu) "" ""))
  67. (if (not (tblsearch "layer" "EAIT25"))    (command EAITlay EAITlma "EAIT25"     EAITlfa (nth 2  AIT-fneu) "" ""))
  68. (if (not (tblsearch "layer" "EAIThilfe")) (command EAITlay EAITlma "EAIThilfe"  EAITlfa (nth 3  AIT-fneu) "" ""))
  69. (if (not (tblsearch "layer" "EAITinfo"))  (command EAITlay EAITlma "EAITinfo"   EAITlfa (nth 4  AIT-fneu) "" ""))
  70. (if (not (tblsearch "layer" "EAITstp"))   (command EAITlay EAITlma "EAITstp"    EAITlfa (nth 5  AIT-fneu) "" EAITlty "EAITstrichpunkt" "" ""))
  71. (if (not (tblsearch "layer" "EAITstpg"))  (command EAITlay EAITlma "EAITstpg"   EAITlfa (nth 6  AIT-fneu) "" EAITlty "EAITstrichpgr"   "" ""))
  72. (if (not (tblsearch "layer" "EAITgstr"))  (command EAITlay EAITlma "EAITgstr"   EAITlfa (nth 7  AIT-fneu) "" EAITlty "EAITstrich"      "" ""))
  73. (if (not (tblsearch "layer" "EAITgstrg")) (command EAITlay EAITlma "EAITgstrg"  EAITlfa (nth 8  AIT-fneu) "" EAITlty "EAITstrichgr"    "" ""))
  74. (if (not (tblsearch "layer" "EAIT3d"))    (command EAITlay EAITlma "EAIT3d"     EAITlfa (nth 9  AIT-fneu) "" ""))
  75. (if (not (tblsearch "layer" "EAIT3d_hlf"))(command EAITlay EAITlma "EAIT3d_hlf" EAITlfa (nth 10 AIT-fneu) "" ""))
  76. (if (not (tblsearch "layer" "EAIT3d_det"))(command EAITlay EAITlma "EAIT3d_det" EAITlfa (nth 11 AIT-fneu) "" ""))
  77. (if (not (tblsearch "layer" "EAIT3d_bem"))(command EAITlay EAITlma "EAIT3d_bem" EAITlfa (nth 12 AIT-fneu) "" ""))
  78. (if (not (tblsearch "layer" "EAITdim_front"))(command EAITlay EAITlma "EAITdim_front" EAITlfa (nth 13 AIT-fneu) "" ""))
  79. (if (not (tblsearch "layer" "EAITdim_side"))(command EAITlay EAITlma "EAITdim_side" EAITlfa (nth 14 AIT-fneu) "" ""))
  80. (if (not (tblsearch "layer" "EAITdim_top"))(command EAITlay EAITlma "EAITdim_top" EAITlfa (nth 15 AIT-fneu) "" ""))
  81. (if (not (tblsearch "layer" "EAITdim_var"))(command EAITlay EAITlma "EAITdim_var" EAITlfa (nth 16 AIT-fneu) "" ""))
  82. (if (not (tblsearch "layer" "EAIT3d_view"))(command EAITlay EAITlma "EAIT3d_view" EAITlfa (nth 17 AIT-fneu) "" ""))
  83. (if (not (tblsearch "layer" "EAIT3d_vdat"))(command EAITlay EAITlma "EAIT3d_vdat" EAITlfa (nth 18 AIT-fneu) "" ""))
  84. (setq EAITdim_CLRD (nth 19 AIT-fneu))
  85. (setq EAITdim_CLRE (nth 20 AIT-fneu))
  86. (setq EAITdim_CLRT (nth 21 AIT-fneu))
  87. (command EAITlay EAITlse EAITal "" EAITlre EAITlei)
  88.  
  89.  
  90. ;Lokal-Variablen
  91. (setq AIT-tx nil AIT-fstd nil AIT-fneu nil AIT-far nil
  92.       AIT-da nil AIT-n nil AIT-ze nil)
  93.  
  94.  
  95. (princ)
  96. );defun EAITset
  97.